5 PRINT "[147]"
10 PRINT "[147]";
20 POKE 53280,0:POKE53281,0
30 PRINT TAB(9);"[154][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
50 PRINT TAB(9);"[154][194]    [146][187][172]   [146][187]     [154][146][194]"
60 PRINT TAB(9);"[154][194] [146][188]  [146][190][188]  [146][154][194]"
70 PRINT TAB(9);"[154][194] [146][172] [146] [146][187][162] [146][154][194]"
80 PRINT TAB(9);"[154][194]    [146][190][188]   [146][187]    [146][154][194]"
90 PRINT TAB(9);"[154][194]  [146][162][188]  [146][154][194]"
100 PRINT TAB(9);"[154][194] [161][146][161] [146][187][172]  [146][154][194]"
110 PRINT TAB(9);"[154][194]  [146][188]   [146][190]     [146][154][194]"
115 PRINT TAB(9);"[154][194][161][188][146][162][162][162][162][162][162][162][162][162][162][162][162][162][154][194]"
117 PRINT TAB(9);"[154][194][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][154][194]"
120 PRINT TAB(9);"[194]";TAB(29);"[194]"
130 PRINT TAB(9);"[194]  [156]S O F T W A R E[154]  [194]"
140 PRINT TAB(9);"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
150 PRINT
155 PRINT TAB(10);"BY RAINER F.SCHUETT"
160 PRINT ""
170 PRINT TAB(19);"    RSE-SOFTWARE  "
180 PRINT TAB(19);"CAMPHUYSENSTRAAT 109"
190 PRINT TAB(19);"  2231TB RIJNSBURG "
200 PRINT TAB(19);"      HOLLAND "
210 FOR D=1 TO 9000:NEXT
215 DIM B$(25)
220 POKE 53280,2:POKE 53281,2
230 PRINT "[147]"
240 PRINT TAB(9);"T E X T - E D I T O R"
250 PRINT CHR$(8);""
260 PRINT "[145]L[146]ESEN, S[146]CHREIBEN ODER E[146]ND?"
270 FOR D=1 TO 50
280 GET A$:IF A$="L" OR A$="S" OR A$="E" THEN 320
290 NEXT D
300 PRINT "[145]LESEN, SCHREIBEN ODER END?"
305 FOR D=1 TO 50
310 GET A$:IF A$="L" OR A$="S" OR A$="E" THEN 320
315 NEXT
317 GOTO 260
319 REM WRITE ROUTINE
320 PRINT "[147][154]"
330 POKE 53280,6:POKE 53281,6
340 IF A$="L" THEN 1000
345 IF A$="E" THEN 2000
350 PRINT ""
360 PRINT "SCHREIBE DEINEN TEXT."
370 PRINT "   WENN NEUE SEITE GEWUENSCHT, DRUECK @"
372 PRINT "  SCHREIBE MIT GROSSEN UND KLEINEN"
373 PRINT "           BUCHSTABEN."
375 INPUT "DRUECK RETURN";A$
380 PRINT CHR$(14)
390 PRINT "[147]";
395 POKE 53280,6:POKE 53281,14
400 REM********************************
410 GET A$:IF A$="@" THEN 450
420 PRINT A$;:GOTO 410
450 FOR P=0 TO 24
460 FOR N=1 TO 40
470 M=P*40+N+1023
480 D=PEEK(M)+64
490 D$=CHR$(D)
495 B$(P)=B$(P)+D$
500 IF M>2023 THEN 530
510 NEXT N
520 NEXT P
530 PRINT CHR$(142);"[147]"
540 PRINT "NEUE SEITE? (J/N)"
550 GET A$:IF A$<>"J" AND A$<>"N" THEN 550
560 PRINT "[147]"
570 OPEN 1,1,1,"TEXT"
580 FOR P=0 TO 24
590 PRINT#1,B$(P)
600 NEXT P
610 PRINT#1,A$
620 CLOSE 1
630 IF A$="N" THEN 220
635 FOR P=0 TO 24:B$(P)="":NEXT
640 GOTO 380
650 REM********************************
1000 REM READ ROUTINE
1005 PRINT "WENN FERTIG MIT SEITE LESEN DRUECK
1006 [153] "'RETURN'"
1007 [153] ""
1008 [133] "DRUECK RETURN";X$
1010 [153] "LOAD";
1020 [151] 53280,14:[151] 53281,14
1030 [159] 1,1,0,"TEXT"
1040 [129] P[178]0 [164] 24
1050 [132]1,B$(P)
1060 [130] P
1070 [132]1,A$
1080 [160] 1
1090 [153] "LOAD";[199](14)
1100 [129] C[178]55296 [164] 56295:[151] C,6:[130]
1110 [129] P[178]0 [164] 24
1120 [129] N[178]1 [164] 40
1130 D$[178][202](B$(P),N,1)
1140 D[178][198](D$)[171]64
1150 M[178]P[172]40[170]N[170]1023
1160 [151] M,D
1170 [139] M[177]2023 [167] 1200
1180 [130] N
1190 [130] P
1195 [161] X$:[139] X$[179][177][199](13) [167] 1195
1197 [153] [199](142);"LOAD";
1200 [139] A$[178]"J" [167] 1010
1210 [137] 220
1220 [143]*******************************
2000 [143] END ROUTINE
2010 [151] 53280,14:[151] 53281,6
2020 [153] "LOADCONT":[128]